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Checked in $AVeallhForecaster2/Engine/source 
Checked in $/WealthForeca$ter2/Engine/source 
Checked in $/WeallhForeca$ter2/Engine/$ouTce 
Checked in $AVealthForecaster2/Engine/$ource 

Checked in $/WealthForecaster2/Engine/source 
Labeled ■eUILD_19SEP 



■1 poitimgr.cpp:46 



1534 double GPortfolioHaoiager : 

1535 { 

double hcyearinf; 



:HunanCap(int yearlndex) 
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int j . lex, age; 
double income; 
double ittortRate; 

const double ReallnterestRate » 0 . 04 63; //Average 30>JS&p5000 & 70X LongTermGovBondYield-Averagelnf 
int k ■ l+m_pUt«i->iiL.wtin->in_bIncludeSpouso; 
he • 0; 

for(int L-'O; L<k; L++) 

^ age » (int )CC( year Index, L?CTD: :SPOUSE_AGE :CTD: :CLIENT„AGE) ; 
lex - (int)(n_pUfeExpoct[L] .«_IniIifeExp+5.0+0.5)-age; 

yearinf » i»jp¥t»->ia_pa->m_3DmtrSimTable[m_pirtin->»_nNRuns-l] [1 ] [yearlndex] ; 



£or(j"l; j<lox+6; j++) 

int n ■ ica min(m_pWta->a_wtin->in_nInvest»entHori2on-l.yearIndex+j ) ; 

double relinf =m_pWttt->in^pa->m_3D»trSi»TableCn_pWtm->a^nHRuns-l ] [ 1 ] [n]/yearln£ ; 



if 
{ 



(L " 0) 

income = CC(n, CTD : : CLIENT_DC_CONTRIBUTIOHS_C401KTCW)+ 
+ CC ( n , CTD : : CLXENT_EMPL0YER_DC_MATCH_C4 0 IKTCW ) 
+ CC(n, CTD: :CLIENT_PROFIT_SHARING_C401KTCW) 
+ CX:(n, CTD: :CIIENT_DC_CONTRIBUTIONS_C401KYC) 
+ CC(n. CTD: :CLIENT_EMPIOYER_DC_MATCH_C401KYC) 
+ CC(n, CTD: :CLIENT_PROFIT_SHARING_C401KYC) 
+ CC(n, CTD: :CLIENT_IRA_CONTRIBUTION> 
+ CC(n, CTD: :CLIEKT_ROTHIRA_CONTRIBUTI0N) 
+ CC(n, CTD:: CLIENT VA_CONTRIBUTI0N> 
+ CC(n, CTD:: CLIENT POSTTAXIRA^CONTRIBUTION) 
+ CC(n, CTD: :CLIENT_403B_CONTRIBUTIOK) 
+ CC(n, CTD::CLIENT 457_COHTRIBUTIOH) 
+ rrfn rm- rJ.TKHT'TiXART.F rOHTRTRTTTTOM^ 



< '4. 



1 



The function, HumanCap, shown below calculates the amount of Human Capital for 
an inyestor in a given year; 

double GPortfolioManager::HumanCap(int yearlndex) 
{ 

double hc,yearlnf; 

intj,lex,age; 
double income; 
double mortRate; 

const double ReallnterestRate = 0.0463 ;//Average 30%S&p5000 & 70% 
LongTermGovBondYield-AverageInflation_l 970_98 ; 

int k = l+m_pWtm->m_wtin->in_bIncludeSpouse; 
hc = 0; 

for(int L=0; L<k; L++) 

^ age = (int)CC(yearIndex,L?CTD: :SPOUSE_AGE:CTD: :CLIENT_AGE); 
lex = (int)(m_pLifeExpect[L].m_IniLifeExp+5.0+0.5)-age; 
yearlnf = m_pWtm->m_pa->m_3DmtrSimTable[m_pWtm->m_nNRuns- 
l][l][yearlndex]; 

forO=l;j<lex+6;j++) 
{ 

int n = ica_min(m_pWtm->m_wtin->in_nInvestmentHorizon- 

l,yearlndex+j); 

double relinf =m_pWtm->m_pa->m_3DmtrSimTable[m_pWtm- 
>m_nNRuns- 1 ] [ 1 ] [n]/yearlnf; 

if(L = 0) 
{ 

income = CC(n, 
CTD: :CLIENT_DC_CONTRIBUTIONS_C40 1 KTC W)+ 

+ CC(n, 

CTD: :CLIENT_EMPLOYER_DC_MATCH_C40 1 KTCW) 

+ CC(n, 

CTD : :CLIENT_PROFIT_SHARING_C40 1 KTCW) 

+ CC(n, 

CTD: :CLIENT_DC_CONTRIBUTIONS_C40 1 KYC) 

+ CC(n, 

CTD: :CLIENT_EMPLO YER_DC_MATCH_C40 1 KYC) 

+ CC(n, 

CTD::CLIENT_PROFIT_SHARING_C401KYC) 

+ CC(n, CTD::CLIENT_IRA_CONTRIBUTION) 
+ CC(n, 

CTD::CLIENT_ROTHIRA_CONTRIBUTION) 



+ CC(n, CTD::CLIENT_VA_CONTRroUTION) 
+ CC(n, 

CTD::CLIENT_POSTTAXIRA_CONTRIBUTION) 

+ CC(n, CTD::CLIENT_403B_CONTRIBUTION) 
+ CC(n, CTD::CLIENT_457_CONTRIBUTION) 

+ CC(n, 

CTD::CLIENT_TAXABLE_CONTRIBUTION) 

+ CC(n, 

CTD::TAXABLE_PORTFOLIO_CONTRIBUTIONS) 

+ CC(n, 

CTD: :CLIENT_CONTRIBUTIONS_40 1KAT_T0TAL) 

+ CC(n, CTD::CLIENT_LOAN_PAYMENT) 

+ (m_pWtm->m_wtin- 
>in_bIncludeClientPension?CC(n,CTD::CLIENT_PENSION):0.0) 

+ (m__pWtm->m_wtin- 
>m_bIncludeClientSS?CC(n,CTD::CLIENT_SS):0.0); 

} 

else 

{ 

income = CC(n,CTD::SPOUSE_DC_CONTRIBUTIONS) 
+ 

CC(n,CTD::SPOUSE_EMPLOYER_DC_MATCH) 

+ CC(n,CTD::SPOUSE_PROFIT_SHARING) 
+ CC(n,CTD: :SPOUSE_IRA_CONTRIBUTION) 
+ 

CC(n,CTD::SPOUSE_ROTHIRA_CONTRIBUTION) 

+ CC(n,CTD::SPOUSE_VA_CONTRIBUTION) 
+ 

CC(n,CTD: :SPOUSE_POSTTAXIRA_CONTRIBUTION) 

+ CC(n, 

CTD::SPOUSE_TAXABLE_CONTRIBUTION) 

+ 

CC(n,CTD: :SPOUSE_CONTRIBUTIONS_40 1 KAT_TOTAL) 

+ (m_pWtin->m_wtin- 
>in_bIncludeSpousePension?CC(n,CTD::SPOUSE_PENSION):0.0) 

+ (m_pWtm->m_wtin- 
>in_bIncludeSpouseSS?CC(n, CTD::SPOUSE_SS):0.0); 

} 

if (j+age <= MaxTableAge) 

mortRate = m_pLifeExpect[L].m_SurviveRate|j+age]; 

else 

mortRate = 

m j)LifeExpect[L] .m_SurviveRate [MaxTableAge] * 

pow(0.5j+age- 

MaxTableAge); 



double p = pow(l+RealInterestRatej); 
he += (income/rellnf) * mortRate / p; 



